layer = 30mph speed limit = 30mph

## # A tibble: 1 x 6
##     s13   s14   s15   s16   s18   s19
##   <int> <int> <int> <int> <int> <int>
## 1   154   313   307    87   175    61

layer = existing 20mph speed limit = 30mph

## # A tibble: 1 x 6
##     s13   s14   s15   s16   s18   s19
##   <int> <int> <int> <int> <int> <int>
## 1    50   153   100    56    25    11

layer = 30mph speed limit = 20mph

## # A tibble: 1 x 6
##     s13   s14   s15   s16   s18   s19
##   <int> <int> <int> <int> <int> <int>
## 1    17    23    17    15    40    14

layer = local 20mph Speed limit = 20

## # A tibble: 1 x 6
##     s13   s14   s15   s16   s18   s19
##   <int> <int> <int> <int> <int> <int>
## 1    47    46    46    43   105    40

layer = local 20mph Speed limit = 30

## # A tibble: 1 x 6
##     s13   s14   s15   s16   s18   s19
##   <int> <int> <int> <int> <int> <int>
## 1    76   159   156    61    28    10

layer = main 20mph Speed limit = 30

## # A tibble: 1 x 6
##     s13   s14   s15   s16   s18   s19
##   <int> <int> <int> <int> <int> <int>
## 1   183   391   329    33    42    10

layer = main 20mph Speed limit = 20

layer =existing 20mph Speed limit = 20

mergedDf <- data[data$LAYER == "20mph existing streets" & data$Speed_limit == 20, ]
leaflet_map(mergedDf,edin_cons_streets)
s13 <- nrow(mergedDf[mergedDf$Date >= "2013-01-01" & mergedDf$Date <= "2013-12-31", ])
s14 <- nrow(mergedDf[mergedDf$Date >= "2014-01-01" & mergedDf$Date <= "2014-12-31", ])
s15 <- nrow(mergedDf[mergedDf$Date >= "2015-01-01" & mergedDf$Date <= "2015-12-31", ])
s16 <- nrow(mergedDf[mergedDf$Date >= "2016-01-01" & mergedDf$Date <= "2016-12-31", ])
s18 <- nrow(mergedDf[mergedDf$Date >= "2018-01-01" & mergedDf$Date <= "2018-12-31", ])
s19 <- nrow(mergedDf[mergedDf$year == "2019" , ])
data_frame(s13,s14,s15,s16,s18,s19)
## # A tibble: 1 x 6
##     s13   s14   s15   s16   s18   s19
##   <int> <int> <int> <int> <int> <int>
## 1    30    39    38    24    70    22